home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 5-Fonts & Software / Applications / TopDown® 3.0 / TopDown® / TopDownÆ.rsrc / Post_998 < prev    next >
Text File  |  1990-06-24  |  712b  |  26 lines
  1. currentlinejoin 6 1 roll 2 setlinejoin 2 div 4 index 1 index add 4 index 2 index add 4 index 3 index sub 4 index 4 index sub
  2. 9 -5 roll pop pop pop pop pop
  3.     matrix currentmatrix
  4.        5 1 roll
  5.     newpath
  6.     3 index 20 add 3 index translate
  7.     0 0 moveto
  8.     0 index 3 index sub                       % height
  9.     2 index 5 index sub 20 sub    % width-20
  10. 1 index 2 div 20 exch div     % x scale
  11. 1 index 0 rlineto
  12. currentpoint 4 index 2 div add translate
  13. dup 1 scale
  14. 0 0 4 index 2 div 270 90 arcn
  15. 7 index setmatrix
  16.  1 index neg 0 rlineto
  17.  6 index 20 add 6 index 4 index 2 div add translate
  18.     dup 1 scale
  19.     0 0 4 index 2 div 90 -90 arc
  20.     closepath
  21.     pop
  22.        pop pop    
  23.     pop pop pop pop
  24.     setmatrix
  25. setlinejoin
  26.